﻿Public Class FormLogin

    Private Sub btnOk_Click(sender As System.Object, e As System.EventArgs) Handles btnOk.Click
        If txtUserName.Text = "Admin" And txtpwd.Text = "123" Then
            MsgBox("ទទូលបានជោគជ័យ", MsgBoxStyle.Information, "Login")
            FormMain.ShowDialog()
            Me.Close()
        Else
            If txtUserName.Text = "" And txtpwd.Text = "" Then
                MsgBox("មិនត្រឹមត្រូវទាំងអស់!!", MsgBoxStyle.Critical, "កំហុស")
            Else
                If txtUserName.Text = "" Then
                    MsgBox("គណនីអ្នកប្រើមិនត្រឹមត្រូវ!!", MsgBoxStyle.Critical, "Erro")
                Else
                    If txtpwd.Text = "" Then
                        MsgBox("លេខសម្ងាត់មិនត្រឹមត្រូវ!!", MsgBoxStyle.Critical, "កំហុស")
                    Else
                        MsgBox("គណនីអ្នកប្រើមិនត្រឹមត្រូវ / លេខសម្ងាត់មិនត្រឹមត្រូវ!!", MsgBoxStyle.Critical, "កំហុស")
                    End If
                End If
            End If
        End If
    End Sub

    Private Sub btxexit_Click(sender As System.Object, e As System.EventArgs) Handles btxexit.Click
        Me.Close()
    End Sub
End Class